home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / KAM401.ZIP / KAM-HLP.PAS < prev    next >
Pascal/Delphi Source File  |  1989-02-26  |  520b  |  35 lines
  1. procedure help;
  2. begin
  3.   save_screen;
  4.   video^ := help_scr;
  5.   viewing_help := TRUE;
  6.   help_color;
  7.   gotoxy(40,24);
  8.   repeat until keypressed;
  9.   if viewing_help then
  10.   begin
  11.     restore_screen;
  12.     viewing_help := FALSE;
  13.   end;
  14. end;
  15.  
  16. procedure qsignals;
  17. begin
  18.   save_screen;
  19.   video^ := qsig_scr;
  20.   help_color;
  21.   gotoxy(40,24);
  22.   wait('');
  23.   restore_screen;
  24. end;
  25.  
  26. procedure rst;
  27. begin
  28.   save_screen;
  29.   video^ := rst_scr;
  30.   help_color;
  31.   gotoxy(40,24);
  32.   wait('');
  33.   restore_screen;
  34. end;
  35.